(deftemplate intrebare
(slot stringIntrebare)
(slot raspuns)
)

(deftemplate creditNevoiPErsonale
    (slot CI)
    )


(assert (intrebare (stringIntrebare nil)(raspuns nil)))
(facts)

(defrule q1
(intrebare (stringIntrebare nil)(raspuns nil))
=>
(printout t "Sunteti angajat ? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Sunteti angajat")(raspuns ?r)))
)
(defrule q2
(intrebare (stringIntrebare "Sunteti angajat")(raspuns DA))
=>
(printout t "Ati mai avut credite ? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Ati mai avut credite")(raspuns ?r)))
)
(defrule q3
(intrebare (stringIntrebare "Sunteti angajat")(raspuns NU))
=>
(printout t "Ne pare rau, nu va putem acorda creditul!" crlf)
)


(defrule q4
(intrebare (stringIntrebare "Ati mai avut credite")(raspuns DA))
=>
(printout t "Ne pare rau, nu va putem acorda creditul!" crlf)
)
(defrule q5
(intrebare (stringIntrebare "Ati mai avut credite")(raspuns NU))
=>
(printout t "Aveti CM pe perioada nedeterminata ? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Aveti CM pe perioada nedeterminata")(raspuns ?r)))
)

(defrule q6
(intrebare (stringIntrebare "Aveti CM pe perioada nedeterminata")(raspuns NU))
=>
(printout t "Ne pare rau, nu va putem acorda creditul!" crlf)
)


(defrule q7
(intrebare (stringIntrebare "Aveti CM pe perioada nedeterminata")(raspuns DA))
=>
(printout t "Aveti mai putin de 21 ani sau peste de 50 ani ? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Aveti mai putin de 21 ani sau peste 50 ani")(raspuns ?r)))
)

(defrule q8
(intrebare (stringIntrebare "Aveti mai putin de 21 ani sau peste 50 ani")(raspuns NU))
=>
(printout t "Aveti un venit de peste 1500 lei/luna ? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Aveti un venit de peaste 1500 lei/luna")(raspuns ?r)))
)

(defrule q9
(intrebare (stringIntrebare "Aveti mai putin de 21 ani sau peste 50 ani")(raspuns DA))
=>
(printout t "Ne pare rau, nu va putem acorda creditul!" crlf)
)


(defrule q10
(intrebare (stringIntrebare "Aveti un venit de peaste 1500 lei/luna")(raspuns DA))
=>
(printout t "Va putem acorda creditul!!!" crlf)
    )
(defrule q11
(intrebare (stringIntrebare "Aveti un venit de peaste 1500 lei/luna")(raspuns NU))
=>
(printout t "Ne pare rau, nu va putem acorda creditul!" crlf)
   ) 



(run)
